home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).adf
/
Redcode
/
Ice.Split
< prev
next >
Wrap
Text File
|
1990-09-11
|
4KB
|
162 lines
;
; Ice.Split - Verwendet die gegnerischen Programmzeiger für
; eigene Zwecke. Programmiert von Christopher Salomon,
; Steinacker 11a, 5901 Wilnsdorf 2 (BRD). Schlägt
; Killer4, Dampfwalze, Mausefalle, Jumper1, JimBeam ... etc!
;
jumpy2 jmp 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
offset DAT -1000 ;erst bei -1000 lohnt es sich zu gucken
dat 0
wohin dat -9
wieoft dat 2600
vorne mov #0,0
vorne1 mov #10,@wohin
sub #4,wohin
djn vorne1,wieoft
add #700,5
mov 2,@4
spl @3
jmp 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
jumpy1 jmp 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
jump jmp @0
start
sub #50,offset
djn thrstart1,zaehler
jmp thirdwave
thrstart1 JMZ start,@offset ;ist irgendwo etwas <>
JMZ start,<offset ;es sollten schon 2 bytes <> 0 sein
ADD #6,offset ;sicherheitsabstand
SUB offset,erg ;sprungwert berrechnen ( es geht doch )
MOV erg,<offset ;DAT fuer sklavenfalle poken
loop1 ADD #1,falle ;JMP berrechnen
mov falle,<offset ;
djn loop1,zahl ;schleifenende
hier2
MOV zahlorg,zahl ;zaehler fuer nachher init.
mov jump,falle
mov #102,erg
JMP start ;und von vorne
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
zahlorg dat 20
zahl DAT 20 ;schleifenzaehler
falle JMP @0 ;wieder mal eine falle, diesmal indirekt
erg DAT 102 ;sklave-offset +1
zaehler dat 120
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
sub #8,-28
hier mov -1,start
mov #5,zahlorg
mov #750,zaehler
mov #-1000,offset
mov 2,3
jmp hier2
jmp $-5
thirdwave
spl hier
spl jumpy1
spl jumpy2
mov #4000,49
spl ownmaster ;spl 0
spl ganzvorne
spl ownmaster
spl ownmaster
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
ownmaster MOV #0,<bdat1 ;und zum DAT 0 werfen verdammt
mov #0,<bdat1 ;und zum DAT 0 werfen verdammt
JMN ownmaster,35 ;wenn bdat = 0 dann selbstmord
jmp vorne
bdat1 DAT 4000 ;zaehler und moerder von gegner
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
slave SPL 1 ;gegnerische Prg. werden hier gefangen
MOV #0,<bdat ;und zum DAT 0 werfen verdammt
mov #0,<bdat ;und zum DAT 0 werfen verdammt
jmp JMN slave,bdat ;wenn bdat = 0 dann selbstmord
bdat DAT -115 ;zaehler und moerder von gegner
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
dat 0
gwohin dat 1005
gwieoft dat 1700
ganzvorne mov #0,0
gorne1 mov #10,@gwohin
add #4,gwohin
djn gorne1,gwieoft
jmp 0